﻿'Hacemos una referencia al proyecto de acceso a datos
Imports DataAccessLayer
'Hacemos una referencia al proyecto BusinessEntitites
Imports BE = BusinessEntities
Public Class ClienteBL
    'Instanciamos la clase ClienteDAO
    Dim cliente As New ClienteDAO

    Public Function ListarClientes() As DataSet

        Return cliente.ListarClientes

    End Function

    Public Function ListarNombreCompletoClientes() As DataSet
        Return cliente.ListarNombreCompletoClientes
    End Function

    Public Function BuscarCliente(ByVal objeto As BE.ClienteBE) As DataSet

        Return cliente.BuscarCliente(objeto)

    End Function

    Public Function ValidarCliente(ByVal objeto As BE.ClienteBE) As DataSet
        Return cliente.ValidarCliente(objeto)
    End Function


    Public Function InsertarCliente(ByVal objeto As BE.ClienteBE) As Boolean

        Return cliente.InsertarCliente(objeto)

    End Function

    Public Function ActualizarCliente(ByVal objeto As BE.ClienteBE) As Boolean

        Return cliente.ActualizarCliente(objeto)

    End Function

    Public Function EliminarCliente(ByVal objeto As BE.ClienteBE) As Boolean

        Return cliente.EliminarCliente(objeto)

    End Function

    Public Function ChapaError() As String

        Return cliente.ChapaError

    End Function


End Class
